in reply to Re: how to delete part of the line?in thread how to delete part of the line?
#!/usr/bin/perl use strict; use warnings; while (chomp(my $line=<>)) { my (undef,$value)=split/=/,$line); $value =~ s/^\s+|\s+$//g; print "$value/"; } [download]