Decode F5 BigIP cookie in one line of Perl

BigIPcookie = 673059850.20480.0000

echo 673059850.20480.0000 | perl -ne'print join ".", map {hex} reverse ((sprintf "%08x", split /\./, $_) =~ /../g);'

10.20.30.40