#!/usr/bin/perl
use strict;
use warnings;

if ("h@" =~ /(\@)/ ) { print $1 }
if ("h@t" =~ /(\@)/ ) { print $1 }