my $result;
if( $aa =~ m/From:\s([^@]+)@/ ) {
    $result = $1;
    $result =~ s/\s</</g;
}

##</code><code>##

my $result;
if( $bb =~ m/UDP\s*([\d.]+);/ ) {
    $result = $1;
}