Re: pattern matching

To remove trailing "^@", you could use the substitution operator:

use strict;
use warnings;

while (my $str = <DATA>) {
    chomp $str;
    $str =~ s/\^\@$//;
    print "$str\n";
}

__DATA__
himanshu.txt^@
himanshu-prg.txt^@
hel_llo-workd.txt^@
foo
[download]

prints:

himanshu.txt
himanshu-prg.txt
hel_llo-workd.txt
foo
[download]

Comment on Re: pattern matching Select or Download Code

Replies are listed 'Best First'.
Re^2: pattern matching by Anonymous Monk on Mar 04, 2009 at 15:02 UTC
Probably he wants `=~ s/[^\w.]*$//;` because `$ perl -le print(chr(0)) \|cat -v ^@` [download]	[reply] [d/l] [select]