Help for this page

Select Code to Download


  1. or download this
    if (($arr =~ / (\w*)(def)(\d{8})/) && ($arr =~ /(\w*)(abc)(\d{5})/)) {
  2. or download this
    if (( my ($c1, $c2, $c3) = $arr =~ /(\w*)(abc)(\d{5})/)
 && ( my ($c4, $c5, $c6) = $arr =~ / (\w*)(def)(\d{8})/)) {