I have a line: i.like.donuts.but.only.with.tea
now I want to remove everything that follows the last "." including the last ".".
in this case ".tea"
substr( $line, rindex( $line, '.' ) ) = '' if $line =~ tr/.//;
John -- use Perl; program fulfillment
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>