1 2 3
$_ = @elem[0]; s/\D//g; $erg = $_;
Gast+2007-09-14 15:34:46-- Code (perl): (dl ) 1 2 3 $_ = @elem[0]; s/\D//g; $erg = $_;
1 2
my $erg = $elem[0]; $erg =~ tr/0-9//cd;
$_ = @elem[0];