Help for this page
print "$last_name; # ^
my $total_names = "Matthew,Thomas,Peter,Randy,George,Federick"; $total_names =~ /,([^,]+)$/; print $1 if $1;
my $total_names = "Matthew,Thomas,Peter,Randy,George,Federick"; my ($last_name) = $total_names =~ /,([^,]+)$/; print $last_name if $last_name;
my $last_name = ( split /,/, $total_names ) [ -1 ] ;
www.com | www.net | www.org
No recent polls found