my $data;
if( param('select') and param('select') !~ /\.\./ )
{
    $data = ...
    ...
}