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

use strict;
use warnings;
use diagnostics;
use Modern::Perl;
open FH, '<', 'Perl_file.txt' or die "Could not open file= $!";

while( <FH>) {						
	chomp($_);					
	my $line =$_;
	$line =~ s/\s+//gs;
	my $char_a = substr($line, 0, 2);
    my $char_b = substr($line,2,2);
    print $char_a;
    print $char_b;
							   
}


##</code><code>##

Raam
larry
marry
sephali