use strict;   # always
use warnings; # always

my $file = "/home/test.txt";
if (-e $file) {
  my @list = ("Anls", "core", "route");
  open(my $fh, '<', $file) or die "$file: $!";
  while (my $line = <$fh>) {
    foreach my $x (@list) {
      if ($line =~ m{$x/(.*)/(.*)}) {
        my $version = $1;
        print "$x: $version\n";
      }
    }
  }
  close $fh;
}