#!/usr/bin/perl use strict; use warnings; while () { s|(\d+\.\d+)%|$1/100|eg; print; } __DATA__ ENSP00000233379 1058 30 1206 1298 96.1% 13 + 96524483 96533474 8992