while(<FH>){
   $data .= $_;
}

##</code><code>##

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

my $data=<<EOF;
00032463000000001000000010000010014110662004071664629003128182      O#
00032463000000002000000010000010014110662004071664729003070909      O#
00032463000000003000000010000010014110662004071664829003861044      O#
00032463000000004000000010000010014110662004071664929003005555      O#
EOF


open (my $IN, '<', \$data) or die "unable to open input file";

while (my $line = <$IN>)
{
   next if $line =~ /^s*$/;  #skip blank lines, common infile fault
                             #usually at the beginning or at the end
   
   my $version   = substr($line,0,3); #substr() from your code...
   my $jobnumber = substr($line,4,5);
   print "version=$version  jobnumber=$jobnumber\n";

   #once the above works, DBI insert code goes here...
} 

__END__
Code above prints:
version=000  jobnumber=24630
version=000  jobnumber=24630
version=000  jobnumber=24630
version=000  jobnumber=24630