>Perl geeks: keep in mind I'm a beginner at this -- this is my Very
>First Perl Program. There are probably better ways to do a lot of
>things I did (I couldn't for the life of me figure out a way to use
>regexps to chop whitespace off the right side of a string, for
>example, so I used repeated 'chops' to do the trick).
#!/usr/bin/perl -w
print "data +?\n";
chomp($data = <STDIN>);
$data =~ s/\s*\s$//g; # rmv spaszez @ end ov ztr!ng
print "$data\n";
>I would welcome
>constructive criticism.
constructive criticism != ecz!zt
zttz