Select Code to Download

#! /usr/bin/perl -w
use strict;
...
                       "         # literal double quote
                      }imsx;     # case-insensitive
print $path, "\n";