use feature 'say';
use Time::Local;

$_ = 'ALL30    2191967708    201211020915    201303020923';

say 1000 * timelocal( 0, reverse unpack 'A4(A2)*' ) for ( split )[ 2, 3 ];