#!/usr/bin/perl -w

use strict;

print "Enter: ";
my $input = <STDIN>;

##</code><code>##

[home]$ perl test.pl
Enter: test^H^H