my $R = 'dounut_s12x30';
print "$1, $2\n"
  if $R !~ /^i|^ddi/ and $R =~ /^[a-z_]+(\d+\.?\d*)[a-z_]?(\d+\.?\d*)?/;