Re^3: help with REGEXP to remove carriage return and caret from end

in reply to Re^2: help with REGEXP to remove carriage return and caret from end
in thread help with REGEXP to remove carriage return and caret from end

This looks a little better

open (TEST,">c:/temp/argtest6.txt") or die "Failed to open argtest.txt
+ file"; 
$count = 0; 
foreach $element (@ARGV) { print TEST $count,$element; $count += 1;
}
$user = lc("$ARGV7");
chomp ($user);
if ($user =~ "/^\........\d\$/\n")
{ print TEST "
[download]

Comment on Re^3: help with REGEXP to remove carriage return and caret from end Download Code

Replies are listed 'Best First'.
Re^4: help with REGEXP to remove carriage return and caret from end by Bennco99 (Acolyte) on Jul 25, 2006 at 19:04 UTC
Thank you ptum. Your recommendation did the trick. Thank you for your help.	[reply]

In Section Seekers of Perl Wisdom