use strict;
use warnings;

use CGI;

my $INPUT = CGI->new();


my $stock_symbol = $INPUT->param('stock_symbol');
    if ($stock_symbol =~ /^([-\@\w.]+)$/ && length($stock_symbol) < 11 && $stock_symbol ne "") {
        $stock_symbol = $1;
        print $1, "\n";
    } else { print "Invalid Symbol!\n"; exit;}

##</code><code>##

perl mytest.pl "stock_symbol=AIDO.OB"