Select Code to Download

#! /usr/bin/perl -w

use strict;
...
{
    print substr( $a, pos($a)-1, $n+1), "\n";
}