use strict;
use warnings;


local $/ = "/\n";

while (my $var_temp = <DATA>) {
    $var_temp =~ s/\n//g;      # Strip out new-lines
    print "$var_temp\n";
}

__DATA__
abds.wewe/fssaf:erferr@abc.co
c.us:342/
abds.wewe/fssaf:erferr@abc.coc.us:342/

##</code><code>##

abds.wewe/fssaf:erferr@abc.coc.us:342/
abds.wewe/fssaf:erferr@abc.coc.us:342/