use strict;
use warnings;
my $string = "foo@bar.example";