#!/usr/bin/perl -w
use strict;

while (<DATA>) {
    /^(\d+).+\/(.+)$/;
    print "$1 :: $2 \n";
}

__DATA__
3198      X:/bs/al/src/eilass.pl