#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use feature 'say'; use File::Slurper 'read_lines'; use Scalar::Util qw(looks_like_number); my @content = read_lines('in.txt'); print Dumper \@content; my @final; foreach my $line (@content) { $line =~s/\s+/ /g ; next if (looks_like_number($line)); push @final, $line; } print Dumper \@final; __END__ $ perl test.pl $VAR1 = [ '19760 Austria 7800 Kingsland 124 Petrie Terrace', '19762 ', '19764 ', '19765 ', '19767 Austria 7864 Kingsland 1/249 Coronation Drive', '19768 ', '19770 Austria 7853 Kingsland Lawrence: 103 Frasers Rd', '19771 ', '19775 Austria 7800 Kingsland 127 Edward Street', '19777 ', '19779 ', '19780 Austria 7963 Kingsland 133 King Street', '19782 ', '19784 ', '19785 ', '19787 ', '19789 ', '19791 Austria 7800 Kingsland Riverside Centre Level 29 123 Eagle Street', '19793 ', '19795 ', '19796 ', '19799 ', '67301 ', '67302 ', '67304 Austria 7810 Kingsland Argyle Office Suit 9 20 Argyle Street', '67306 ', '67308' ]; $VAR1 = [ '19760 Austria 7800 Kingsland 124 Petrie Terrace', '19767 Austria 7864 Kingsland 1/249 Coronation Drive', '19770 Austria 7853 Kingsland Lawrence: 103 Frasers Rd', '19775 Austria 7800 Kingsland 127 Edward Street', '19780 Austria 7963 Kingsland 133 King Street', '19791 Austria 7800 Kingsland Riverside Centre Level 29 123 Eagle Street', '67304 Austria 7810 Kingsland Argyle Office Suit 9 20 Argyle Street' ];