my @line=('123');
$val=@line;
if($val=~/.../)
{
  ...