Help for this page

Select Code to Download


  1. or download this
    =~ /(,[^,]+)$/
  2. or download this
    my $last = ( split /,/, $str ) [ 0 ] ;