Select Code to Download

revision=something <--newline at end of line
version=something <--newline at end of line
type=something <--newline at end of line
key1=64 characters <--newline at end of line
key2=32 character <--search will stop before going to newline

if ($string =~ "$var $var1 $var2"){
    seek ( $keys, 4, 0 );
    read ( $keys, $temp1, 64 );
    seek ( $keys, 4, 0 );
    read ( $keys, $temp2, 32 );

$string =~ "$var $var1 $var2"

$string =~ "$var\n $var1\n $var2"