Help for this page

Select Code to Download


  1. or download this
     ...
 if ( $str =~ / / ) {  
...
    print "with underscore\n";
 }
 ...
  2. or download this
      ...
  my $str = $ARGV[0] || '|78187980|ref|NM_0';          # original stri
+ng
...

  print 'with ' . ($cnt || 'no') . " underscore(s)\n"; # print result 
+depending on count
  ...