Miscellany

#!/usr/bin/perl -w

my $testvar = "abcdef  ghikl";

if ($testvar =~ m/^(?<named>[^g]*)/) {
        print "        after match named is \"$+{named}\"\n";
        $named = $+{named};
  print "                new named is \"$named\"\n";
        chomp $named;
        print "            chomped named is \"$named\"\n";
        $named = chomp($named);
        print "   assigned chomped named is \"$named\"\n";
        $named = $+{named};
  print "                new named is \"$named\"\n";
        $named = chomp $named;
        print "assigned no bracket named is \"$named\"\n";
}