Take this code: $x = "a123b345c7865d87"; 
  @L = ($x =~ /a-z/g)1,3; print "@L"; ## Prins b d 
  @X = ($x =~ /#/g)[1,3]; 
  print (defined(@X) ? "YES" : "NO";