THis is the best I could come up with so far.....would prefer to use something with reg expressions :
$linetoprobe = "XXXXYYY~ZZZ"; @mytempvalue = split(/ZZZ/, $linetoprobe); print substr(@mytempvalue[0], -1); >>> "Terry Vaughn" <[EMAIL PROTECTED]> 11/12/02 03:11PM >>> Hello all. $linetoprobe = "XXXXYYY~ZZZ" ; How Do I assign $mytempvar the character immediately prior to "ZZZ" using reg exp?? Terry _______________________________________________ Perl-Unix-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ Perl-Unix-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
