Select Code to Download

use strict;
use warnings;
...

my $evaled = eval "qq/$t/";
print "$evaled:\n"

\t:
    :

my %seps = (
  '\\t' => "\t",
...

my $input = <>;
my $separator = $seps{$input};