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

while (<DATA>)
	{
		my $first = substr $_, 37, 20;
		my $second = substr $_, 67, 3;
		print STDOUT "FIRST: $first\nSECOND: $second\n\n";
	}

__DATA__
j1000010017 6790194100109201301092013THIS TO BE PRINTED  M PW09-3PY248005BIK00