Help for this page

Select Code to Download


  1. or download this
    my $str = 'hello kitty 003x009 spanish';
$str =~ s/^(?:hello kitty )(\d+)(?:x\d+.*)$/sprintf "%d", $1/e;
...
# result: 3
# expected: 'hello kitty 3x009 spanish'
  2. or download this
    $str =~ s/^(?:hello kitty )(\d+)(?:x\d+.*)$/XX/;