#!/usr/bin/perl

$string = `tail -n 1 /opt/foldingathome/client1/FAHlog.txt`;
$string =~ /Completed (\d+) out of (\d+) steps  \((.+)%\)/;
#print "$1/$2 $3";
print "$3";
