Select Code to Download

The error i am getting:

syntax error at D:\testing\pract.pl line 14, near "[^"
Execution of D:\testing\pract.pl aborted due to compilation errors.

use strict;
...
}

print $input;