Help for this page

Select Code to Download


  1. or download this
    $str =~ m/\A(.)/xms;
my $first_character = $1;
  2. or download this
    $str =~ m/(.)\z/xms;
my $last_character = $1;
  3. or download this
    $str =~ m/\A(.).*(.)\z/xms;
my $first_character = $1;
my $last_character = $2;
  4. or download this
    $str =~ m/\A(.).*?(.?)\z/xms;
my $first_character = $1;
my $last_character = $2;
$last_character = $first_character if ! $last_character;